home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / cross / devpic.lha / devpic / source / picsend.asm < prev   
Assembly Source File  |  2000-04-24  |  557b  |  29 lines
  1. ; This is a sample routine for sending debug info to PicRecv
  2. ; Change temp1 and count variables, and TRISB value for your needs
  3.  
  4. ; PIC must have at least 4MHz and interrupts must be disabled
  5. ; diring execution of current debugging tool version!
  6.  
  7. ; Sending value should be placed in W
  8.  
  9. dprint    movwf    temp1
  10.     movlw    b'01100011'
  11.     tris    PORTB
  12.     movlw    9
  13.     movwf    count
  14. dp_a    clrwdt
  15.     btfsc    PORTB,6
  16.     goto    dp_a
  17.     movlw    b'01100011'
  18.     bsf    STATUS,C
  19.     rlf    temp1
  20.     btfsc    STATUS,C
  21.     movlw    b'11100011'
  22.     tris    PORTB
  23. dp_b    clrwdt
  24.     btfss    PORTB,6
  25.     goto    dp_b
  26.     decfsz    count
  27.     goto    dp_a
  28.     return
  29.